Imports Microsoft.VisualBasic

Namespace My
    Public Class MyConvert
        Public Shared Function ToDBBoolean(ByVal b As Boolean) As DBBoolean
            Return New DBBoolean(b)
        End Function

        Public Shared Function ToDBBoolean(ByVal b As String) As DBBoolean
            Return New DBBoolean(b)
        End Function

        Public Shared Function ToBoolean(ByVal b As DBBoolean) As Boolean
            Return b.Value
        End Function
    End Class
End Namespace
